home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 44 / Amiga Format CD44 (1999-08-26)(Future Publishing)(GB)(Track 1 of 3)[!][issue 1999-10].iso / -in_the_mag- / basics / amos / mousing.lha / mouseSing.AMOS / mouseSing.amosSourceCode
AMOS Source Code  |  1980-02-03  |  479b  |  20 lines
  1. Rem  ==============  
  2. Rem  = Mouse Sing =  - simple, but funny ! 
  3. Rem  ==============  
  4. Rem  
  5. Rem (c) 1998 by D.Lenz (http://members.xoom.com/dl80)
  6. Rem
  7. Screen Open 0,320,256,2,Lowres
  8. Load Iff "mousesing.iff" : Curs Off : Flash Off 
  9. Limit Mouse 247,104 To 345,197 : Volume 0
  10. Repeat 
  11.    XM=X Mouse-247
  12.    YM=Y Mouse-104
  13.    If YM<2 Then YM=1
  14.    If YM>95 Then YM=95
  15.    If XM<1 Then XM=0
  16.    If XM>62 Then XM=63
  17.    Play YM,1
  18.    Volume XM
  19. Until Inkey$<>"" or Mouse Click
  20. Sam Stop : Edit